home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / DISCOUNT COMMERCIAL PAPER.bas < prev    next >
BASIC Source File  |  2012-02-16  |  653b  |  23 lines
  1. 10  PRINT "DISCOUNT COMMERCIAL PAPER"
  2. 20  PRINT 
  3. 29  REM  - STATEMENTS 30 TO 90 REQUEST USER INPUT
  4. 30  PRINT "FUTURE VALUE";
  5. 40  INPUT T
  6. 50  PRINT "DISCOUNT RATE";
  7. 60  INPUT D
  8. 69  REM  - CONVERT PERCENT TO DECIMAL
  9. 70 D = D/100
  10. 80  PRINT "DAYS TO MATURITY";
  11. 90  INPUT N
  12. 99  REM  - CLACULATE DISOUNT, PRINT
  13. 100 D1 = T *D *N/360
  14. 110  PRINT "DESCOUNT = $";D1
  15. 119  REM  - CALCULATE COST, PRINT
  16. 120  PRINT "    COST = $";T -D1
  17. 129  REM  - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION
  18. 130  PRINT 
  19. 139  REM  - RESTART OR END PROGRAM? USER INPUT REQUIRED
  20. 140  PRINT "MORE DATA (1=YES, 0=NO)";
  21. 150  INPUT X
  22. 160  IF X = 1  THEN 20
  23. 170  PRINT "<CTRL-D>RUN HELLO"